home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / boosters.arc / XBOXUL.PAS < prev    next >
Pascal/Delphi Source File  |  1985-11-07  |  655b  |  31 lines
  1. Program XboxUl;
  2.  
  3.  (*$IBoDecl*)
  4.  (*$IPutStr*)
  5.  (*$ICopies*)
  6.  (*$IFillHeap*)
  7.  (*$IPutHeap*)
  8.  (*$IRestores*)
  9.  (*$IBoxHeap*)
  10.  (*$IBoxul*)
  11.  
  12. BEGIN
  13.  
  14.    ClrScr;
  15.    PutStr ( h, 'USING BOXUL', 35, 12, 14 );
  16.    for i := 0 to 8 do
  17.       boxul ( 5 + (3*i), 2+i, 75 - (3*i), 23-i ,
  18.               Random(4)+1, Yellow );
  19.  
  20.    ClrScr;
  21.    Mark ( HeapTop );
  22.    New ( Page[1] );
  23.    FillHeap ( Page[1], 1,1,80,25,#32,14 );
  24.    for i := 0 to 8 do
  25.       boxHeap ( page[1], 5 + (3*i), 2+i, 75 - (3*i), 23-i ,
  26.               Random(4)+1, Yellow );
  27.    RestoreScreen ( page[1] );
  28.    PutStr ( h, 'USED BOXHEAP', 35, 12, 14 );
  29.    Release ( HeapTop );
  30.  
  31. END.